home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / vm / vm-license.el.z / vm-license.el
Encoding:
Text File  |  1998-05-21  |  1.7 KB  |  46 lines
  1. ;;; Code to show VM's warranty and copying restrictions
  2. ;;; Copyright (C) 1989, 1994 Kyle E. Jones
  3. ;;;
  4. ;;; This program is free software; you can redistribute it and/or modify
  5. ;;; it under the terms of the GNU General Public License as published by
  6. ;;; the Free Software Foundation; either version 1, or (at your option)
  7. ;;; any later version.
  8. ;;;
  9. ;;; This program is distributed in the hope that it will be useful,
  10. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ;;; GNU General Public License for more details.
  13. ;;;
  14. ;;; You should have received a copy of the GNU General Public License
  15. ;;; along with this program; if not, write to the Free Software
  16. ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17.  
  18. (provide 'vm-license)
  19.  
  20. (defun vm-show-copying-restrictions (&optional warranty)
  21.   (interactive)
  22.   (require 'info)
  23.   (let ((pop-up-windows (eq vm-mutable-windows t))
  24.     (pop-up-frames (and vm-mutable-frames vm-frame-per-help)))
  25.     (or 
  26.      (condition-case ()
  27.      (progn (Info-goto-node "(vm)License") t)
  28.        (error nil))
  29.      (condition-case ()
  30.      (progn (Info-goto-node "(vm.info)License") t)
  31.        (error nil))
  32.      (error "VM Info documentation appears not to be installed"))
  33.     (vm-display (current-buffer) t nil nil)
  34.     (vm-display nil nil '(vm-show-copying-restrictions vm-show-no-warranty)
  35.         (list this-command))
  36.     (if warranty
  37.     (let ((case-fold-search nil))
  38.       (search-forward "NO WARRANTY\n" nil t)
  39.       (forward-line -1)
  40.       (set-window-start (selected-window) (point))))))
  41.  
  42. (defun vm-show-no-warranty ()
  43.   "Display \"NO WARRANTY\" section of the GNU General Public License."
  44.   (interactive)
  45.   (vm-show-copying-restrictions t))
  46.